home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
graphics
/
amicad
/
arexx
/
unzoom.amicad
< prev
next >
Wrap
Text File
|
1999-12-06
|
666b
|
25 lines
/* Script permettant de récupérer le mode d'écran utilisé avant l'appel du script Zoom */
/* © R.Florac, 3 Mars 1998, version 1.1 */
options results
signal on error /* pour l'interception des erreurs */
signal on syntax
'IF(MODE_ÉCRAN==0,MESSAGE("Zoom pas encore appelé"):0,-1)'
if result=-1 then do
'SCREEN(MODE_ÉCRAN,LARGEUR_ÉCRAN,HAUTEUR_ÉCRAN,FONTE,TAILLE_FONTE)'
'WINDOW(X_GAUCHE,Y_HAUT,LARGEUR_FENÊTRE,HAUTEUR_FENÊTRE)'
end
exit
/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Erreur en ligne 'SIGL'")'
exit